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— BcdTableDefs.Mesa Edited by Johnsson on June 28, 1977 2:32 PM 

DIRECTORY 

AUoDefs: FROM "altodefs"; 

BcdTableDefs; DEFINITIONS » 
BEGIN 

TableSelector: TYPE = CARDINAL [0..10]; 

-- tables for the binder (adjust TableSelector also) 
treetype: TableSelector - 0; -- trees 
httype: TableSelector = 1; 


-- hash table 

-- string table 

-~ config table 

-- module table 


sstype: TableSelector = 2 

cttype: TableSelector = 3 

mttype: TableSelector = 4 

imptype: TableSelector = 5; -- import table 

exptype: TableSelector « 6; -- export table 

fttype: TableSelector = 7 

sttype: TableSelector = 8 

cxtype: TableSelector = 9 


-- file table 
-- semantic table 
-- context table 


nttype: TableSelector = 10; -- name table 

TableLimit: CARDINAL = 400008; 
TableBase: TYPE = [0 . . Al toDef s .VMLimit] ; 
Tablelndex: TYPE = POINTER [0 . .TableLimit) ; 


-- allocation from the tables as stacks 


Allocate: PROCEDURE [table: TableSelector. size: CARDINAL] RETURNS [Tablelndex]; 

ResetTable: PUBLIC PROCEDURE [table: TableSelector]; 

TableBounds: PROCEDURE [table: TableSelector] RETURNS [base: TableBase. size: CARDINAL]; 

TableOverflow: SIGNAL RETURNS [origin, limit: CARDINAL]; 

StackAllocateError: SIGNAL [table: TableSelector]; 

-- allocation from free list (first table only) 

chunktype: TableSelector = FIRST[TableSelector] ; 

GetChunk: PROCEDURE [size: CARDINAL] RETURNS [Tablelndex]; 
FreeChunk: PROCEDURE [i: Tablelndex, size: CARDINAL]; 

-- notification of repacking 

TableNotifier: TYPE == PROCEDURE [base: DESCRIPTOR FOR ARRAY TableSelector OF TableBase]; 

AddNotify: PROCEDURE [proc: TableNotifier]; 
DropNotify: PROCEDURE [proc: TableNotifier]; 

-- administrative procedures 

Initial izeTable: PROCEDURE [origin, size: CARDINAL]; 
EraseTable: PROCEDURE; 

END. . . 


